home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / AUDIO / SBVOICE / PLAYSB.PAS < prev    next >
Pascal/Delphi Source File  |  1993-08-11  |  377b  |  21 lines
  1. {$M 8192,0,60000}
  2. USES
  3.   SBVoice;
  4. VAR
  5.   Rate : Word;
  6. BEGIN
  7.   If SBInstalled=FALSE then Begin
  8.     Writeln('A soundblaster compatible card would help.');
  9.     Writeln;
  10.     Halt(1)
  11.   End;
  12.   LoadSB('CHESTPAI',1);
  13.   Rate:=12000;
  14.   Repeat
  15.     SetPlayRate(1,Rate);
  16.     PlaySB(1);
  17.     Repeat until VOCStatus=0;
  18.     Rate:=Rate-2000
  19.   Until Rate<4000;
  20.   RemoveSB
  21. END.